home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Tele / C / CommsService 2.0.2.sit / commsService 2.0.2 Final / Service Definition Files / Harvard University < prev    next >
Encoding:
Text File  |  1994-09-20  |  2.0 KB  |  49 lines  |  [TEXT/cSSv]
  1. #
  2. # commsService 2.0 Service Definition File.
  3. #
  4. Name=Harvard University
  5. Description=Provides access to Harvard University's HOLLIS (Harvard OnLine Library Information System) system which provides the following services -
  6.          Union Catalog of the Harvard libraries
  7.          Catalog of Older Widener materials
  8.          Guide to Harvard Libraries and Computing Resource Centers
  9.          Expanded Academic Index (1987-   )
  10.          Anthropological Literature (1983-  )
  11.          Legal Resource Index (1980-   )
  12.          PAIS International (1985-   )
  13.          Physics Pre-prints (1991-  )
  14.         ATLA Religion Index (1988-  )
  15.  
  16. TimeOut=0
  17. BreakEnabled=No
  18. PagesToScroll=10
  19. ConnectionTool=TGE TCP Tool
  20. ConnectionTokens=HostName hollis.harvard.edu PortNumber 23 ConnectionType TELNET TelnetBinaryMode FALSE TerminalType vt100
  21. ConnectionMenu=No
  22. TerminalTool=VT102 Tool
  23. TerminalTokens=FontSize 9 Width 80 Cursor Underline Online True LocalEcho False AutoRepeat True RepeatControls False AutoWrap True NewLine False Scroll Jump ShowControls False SwapBackspaceDelete False TerminalMode ANSI/VT102 ShowStatusBar False ShowTabRuler False InverseVideo False InsertChar False OriginAtMargin False KeyClick False CursorKey ANSI Keypad Numeric AnswerBack "" KeyboardLocked False ActiveCharSet G0 NRCSet USASCII G0 USASCII G1 USASCII G2 USASCII G3 USASCII
  24. TerminalMenu=No
  25. ServiceScripts=on LoginToService
  26. Global ActiveService, FoundString
  27. if ExpectFromService(ActiveService, 20, true, true, "TS>") then
  28. if FoundString = 1 then
  29. if SendToService(ActiveService, return, "") then
  30. if ExpectFromService(ActiveService, 20, true, true, "===>") then
  31. if FoundString = 1 then
  32. if SendToService(ActiveService, "HOLLIS" & return, "") then
  33. get ExpectFromService(ActiveService, 20, true, true, "WELCOME TO HOLLIS", "SESSION NOT AVAILABLE")
  34. if FoundString = 1 then return true
  35. if FoundString = 2 then
  36. beep
  37. answer "The HOLLIS system is not currently available." & return & return & "Try again later !?!?"
  38. end if
  39. end if
  40. end if
  41. end if
  42. end if
  43. end if
  44. end if
  45. return false
  46. end LoginToService
  47.  
  48.  
  49.